home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SGI Freeware 1998 November
/
Freeware November 1998.img
/
dist
/
fw_dired.idb
/
usr
/
freeware
/
bin
/
findstr.z
/
findstr
Wrap
Text File
|
1997-09-09
|
302b
|
19 lines
exec "perl -Ssw $0 $*"
if $0;
# findstr: print a list of files containing the string $ARGV[0]
#
# $Id: findstr,v 1.1 1994/09/23 22:31:41 lm Exp $
$string = shift(@ARGV);
foreach $file (@ARGV) {
open(FD, $file);
while (<FD>) {
next unless /$string/o;
print "$file\n";
last;
}
close(FD);
}